home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADV350.ZIP / poof.for < prev    next >
Text File  |  1990-11-22  |  743b  |  29 lines
  1.       SUBROUTINE POOF
  2.       
  3. C  AS PART OF DATABASE INITIALISATION, WE CALL POOF TO SET UP SOME DUMMY
  4. C  PRIME-TIME SPECS, MAGIC WORDS, ETC.
  5.  
  6.       IMPLICIT INTEGER*4 (A-Z)
  7.       LOGICAL WIZ
  8.       DIMENSION HNAME(4)
  9.       COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  10.      1        SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP,WIZ
  11.      
  12. C     WKDAY=0
  13. C     WKEND=0
  14. C     HOLID=0
  15. C     HBEGIN=0
  16. C     HEND=-1
  17. C     HNAME='ADVS'
  18. C     SHORT=30
  19. C     MAGIC='DWAR'
  20. C     MAGNM=11111
  21. C     LATNCY=90
  22.       OPEN(UNIT=3,FILE='ADVMAGIC.DAT',STATUS='UNKNOWN',
  23.      1FORM='UNFORMATTED')
  24.       READ(3) WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,SHORT,MAGIC,MAGNM,
  25.      1        LATNCY
  26.       CLOSE(UNIT=3)
  27.       RETURN
  28.       END
  29.